﻿Public Class Respuestas

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ACEPTAR.Click

        Dim mensaje As String
        Dim Mensaje_Formateado As String = ""
        mensaje = rtb_TEXTO_RESPUESTA.Text
        ':TODO VER ESTA PARTE QUE NO ESTÁ CLARA
        ' HACER QUE SE FORMATEE EL MENSAJE
        Dim n As Integer
        For n = 1 To Len(mensaje)
            If Mid(mensaje, 1, n) <> Chr(10) Then
                Mensaje_Formateado = Mensaje_Formateado & Mid(mensaje, n, 1)
            Else
                Mensaje_Formateado = Mensaje_Formateado & "[Line Break]"
            End If

        Next

        Select Case Main.DataGridQueLlamaARespuestas

            Case Is = "datagrid_PRERESPUESTAS_ALEATORIAS_PSIs"
                '1º Datagrid
                Main.datagrid_PRERESPUESTAS_ALEATORIAS_PSIs.CurrentCell.Value = Replace(Mensaje_Formateado, """", "'")
                Main.datagrid_PRERESPUESTAS_ALEATORIAS_PSIs.RefreshEdit()
            Case Is = "DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS"
                '2º Datagrid
                Main.DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.CurrentCell.Value = Replace(Mensaje_Formateado, """", "'")
                Main.DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.RefreshEdit()
            Case Is = "datagrid_RESPUESTAS_ALEATORIAS_PSIs"
                '3º Datagrid
                Main.datagrid_RESPUESTAS_ALEATORIAS_PSIs.CurrentCell.Value = Replace(Mensaje_Formateado, """", "'")
                Main.datagrid_RESPUESTAS_ALEATORIAS_PSIs.RefreshEdit()
            Case Is = "datagrid_RESPUESTAS_PSIs"
                '4º Datagrid
                Main.datagrid_RESPUESTAS_PSIs.CurrentCell.Value = Replace(Mensaje_Formateado, """", "'")
                Main.datagrid_RESPUESTAS_PSIs.RefreshEdit()
        End Select
        Close()
    End Sub

    Private Sub btn_CANCELAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_CANCELAR.Click
        Me.Close()
    End Sub

    Private Sub rtb_TEXTO_RESPUESTA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtb_TEXTO_RESPUESTA.TextChanged
        'TODO No permitir escribir comillas.
    End Sub

    Private Sub MenuStripRESPUESTAS_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStripRESPUESTAS.ItemClicked

    End Sub

    Private Sub EditarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditarToolStripMenuItem.Click

    End Sub

    Private Sub DeshacerToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeshacerToolStripMenuItem4.Click
        Me.rtb_TEXTO_RESPUESTA.Undo()
    End Sub

    Private Sub CortarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CortarToolStripMenuItem.Click
        Me.rtb_TEXTO_RESPUESTA.Cut()
    End Sub

    Private Sub CopiarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiarToolStripMenuItem.Click
        Me.rtb_TEXTO_RESPUESTA.Copy()
    End Sub

    Private Sub PegarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PegarToolStripMenuItem.Click
        Me.rtb_TEXTO_RESPUESTA.Paste()
    End Sub

    Private Sub SeleccionarTodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SeleccionarTodoToolStripMenuItem.Click
        Me.rtb_TEXTO_RESPUESTA.SelectAll()
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Me.rtb_TEXTO_RESPUESTA.Undo()
    End Sub

    Private Sub CortarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CortarToolStripMenuItem1.Click
        Me.rtb_TEXTO_RESPUESTA.Cut()
    End Sub

    Private Sub CopiarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiarToolStripMenuItem1.Click
        Me.rtb_TEXTO_RESPUESTA.Copy()
    End Sub

    Private Sub PegarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PegarToolStripMenuItem1.Click
        Me.rtb_TEXTO_RESPUESTA.Paste()
    End Sub

    Private Sub SeleccionarTodoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SeleccionarTodoToolStripMenuItem1.Click
        Me.rtb_TEXTO_RESPUESTA.SelectAll()
    End Sub
End Class